home *** CD-ROM | disk | FTP | other *** search
/ Suzy B Software 2 / Suzy B Software CD-ROM 2 (1994).iso / stos / stos_34 / form_inp.bas (.txt) < prev    next >
Atari STOS Basic  |  1987-04-21  |  2KB  |  50 lines
  1. 100 KEY
  2. 110 VARNAME
  3. 120 VARNAME
  4. 130 LOCATE
  5. 140 GOSUB
  6. 150 LOCATE
  7. 160 PRINT
  8. 170 WAIT KEY
  9. 180 END
  10. 190 UNKNOWN OP: 0x3A
  11. 200 UNKNOWN OP: 0x3A
  12. 5940 REM ***************************************************************
  13. 5950 REM ***          FORM INPUT ROUTINE FOR NAME ENTERING           ***
  14. 5960 REM ***************************************************************
  15. 5970 REM *** parameters - inplen ( length of input text )            ***
  16. 5980 REM ***              xinput,yinput ( coords of inputted text )  ***
  17. 5990 REM ***************************************************************
  18. 6000 VARNAME
  19. 6010 VARNAME
  20. 6020 VARNAME
  21. 6030 VARNAME
  22. 6040 LOCATE
  23. 6050 PRINT
  24. 6060 UNKNOWN OP: 0x3A
  25. 6070 REPEAT
  26. 6080 LOCATE
  27. 6090 PEN
  28. 6100 LOCATE
  29. 6110 GOSUB
  30. 6120 IF
  31. 6130 UNKNOWN OP: 0x3A
  32. 6140 IF
  33. 6150 UNKNOWN OP: 0x3A
  34. 6160 UNTIL
  35. 6170 LOCATE
  36. 6180 PRINT
  37. 6190 RETURN
  38. 6200 UNKNOWN OP: 0x3A
  39. 6210 UNKNOWN OP: 0x3A
  40. 6220 REM ***************************************************************
  41. 6230 REM ***  LITTLE ROUTINE TO GET A KEY PRESS, PUT INTO PRESSKEY$  ***
  42. 6240 REM ***                   AND SCANPRESS                         ***
  43. 6250 REM ***************************************************************
  44. 6260 REPEAT
  45. 6270 VARNAME
  46. 6280 VARNAME
  47. 6290 UNTIL
  48. 6300 RETURN
  49. 6310 UNKNOWN OP: 0x3A
  50.